home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / HypertalkTools.cpt / HyperTalk Sampler 1.1 / card_8373.txt < prev    next >
Text File  |  1989-02-26  |  7KB  |  308 lines
  1. -- card: 8373 from stack: in.1
  2. -- bmap block id: 8690
  3. -- flags: 0000
  4. -- background id: 2536
  5. -- name: tght0003
  6. ----- HyperTalk script -----
  7. on openCard
  8.   type tab
  9. end openCard
  10.  
  11. on closecard
  12.   put empty into card field "address"
  13.   put empty into card field "creditcard"
  14.   put empty into card field "expire"
  15.   put 1 into card field "quan"
  16.   click at the loc of button "check"
  17.   set the hilite of button id 10 to false
  18.   set the hilite of button id 11 to false
  19.   click at the loc of card field "calc"
  20. end closeCard
  21.  
  22.  
  23. -- part 1 (field)
  24. -- low flags: 00
  25. -- high flags: 4001
  26. -- rect: left=127 top=73 right=154 bottom=474
  27. -- title width / last selected line: 0
  28. -- icon id / first selected line: 0 / 0
  29. -- text alignment: 0
  30. -- font id: 3
  31. -- text size: 12
  32. -- style flags: 0
  33. -- line height: 16
  34. -- part name: address
  35.  
  36.  
  37. -- part 2 (field)
  38. -- low flags: 00
  39. -- high flags: 4001
  40. -- rect: left=96 top=268 right=287 bottom=452
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 0
  44. -- font id: 3
  45. -- text size: 14
  46. -- style flags: 0
  47. -- line height: 18
  48. -- part name: creditcard
  49.  
  50.  
  51. -- part 3 (field)
  52. -- low flags: 00
  53. -- high flags: 4001
  54. -- rect: left=96 top=290 right=309 bottom=184
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 0
  58. -- font id: 3
  59. -- text size: 14
  60. -- style flags: 0
  61. -- line height: 18
  62. -- part name: expire
  63.  
  64.  
  65. -- part 4 (button)
  66. -- low flags: 00
  67. -- high flags: C006
  68. -- rect: left=23 top=196 right=212 bottom=88
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 1
  72. -- font id: 0
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: Check
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   if the hilite of the target is true then
  80.     play boing
  81.   else
  82.     set the hilite of button "check" to true
  83.     set the hilite of button "visa" to false
  84.     set the hilite of button "mastercard" to false
  85.     set the hilite of button "cod" to false
  86.   end if
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 5 (button)
  92. -- low flags: 00
  93. -- high flags: 8006
  94. -- rect: left=23 top=211 right=227 bottom=88
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: Visa
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   if the hilite of the target is true then
  106.     play boing
  107.   else
  108.     set the hilite of button "check" to false
  109.     set the hilite of button "visa" to true
  110.     set the hilite of button "mastercard" to false
  111.     set the hilite of button "cod" to false
  112.   end if
  113. end mouseUp
  114.  
  115.  
  116.  
  117.  
  118. -- part 6 (button)
  119. -- low flags: 00
  120. -- high flags: 8006
  121. -- rect: left=23 top=226 right=242 bottom=123
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: MasterCard
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   if the hilite of the target is true then
  133.     play boing
  134.   else
  135.     set the hilite of button "check" to false
  136.     set the hilite of button "visa" to false
  137.     set the hilite of button "mastercard" to true
  138.     set the hilite of button "cod" to false
  139.   end if
  140. end mouseUp
  141.  
  142.  
  143.  
  144. -- part 7 (button)
  145. -- low flags: 00
  146. -- high flags: 8006
  147. -- rect: left=23 top=241 right=257 bottom=88
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: COD
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   if the hilite of the target is true then
  159.     play boing
  160.   else
  161.     set the hilite of button "check" to false
  162.     set the hilite of button "visa" to false
  163.     set the hilite of button "mastercard" to false
  164.     set the hilite of button "cod" to true
  165.   end if
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 8 (field)
  171. -- low flags: 01
  172. -- high flags: 0000
  173. -- rect: left=421 top=198 right=260 bottom=480
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 65535
  177. -- font id: 3
  178. -- text size: 9
  179. -- style flags: 0
  180. -- line height: 12
  181. -- part name: calc
  182. ----- HyperTalk script -----
  183. on mouseDown
  184.   set numberformat to "0.00"
  185.   put card field "quan" * 49.95 into line 1 of card field "calc"
  186.   if the hilite of button id 10 is true then
  187.     put .06 * line 1 of card field "calc" into line 2 of card field "calc"
  188.   else
  189.     put empty into line 2 of card field "calc"
  190.   end if
  191.   if the hilite of button id 11 is true then
  192.     put 1.50 into line 4 of card field "calc"
  193.   else
  194.     put empty into line 4 of card field "calc"
  195.   end if
  196.   put line 1 of card field "calc" + line 2 of card field "calc" + line 3 of card field "calc" + line 4 of card field "calc" into line 5 of card field "calc"
  197.   play harpsichord a c
  198. end mouseDown
  199.  
  200.  
  201. -- part 9 (field)
  202. -- low flags: 00
  203. -- high flags: 0002
  204. -- rect: left=320 top=197 right=211 bottom=354
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 65535
  208. -- font id: 3
  209. -- text size: 9
  210. -- style flags: 0
  211. -- line height: 12
  212. -- part name: quan
  213. ----- HyperTalk script -----
  214. on closefield
  215.   click at the loc of card field "calc"
  216. end closefield
  217.  
  218.  
  219. -- part 10 (button)
  220. -- low flags: 00
  221. -- high flags: A005
  222. -- rect: left=257 top=211 right=226 bottom=418
  223. -- title width / last selected line: 0
  224. -- icon id / first selected line: 0 / 0
  225. -- text alignment: 1
  226. -- font id: 3
  227. -- text size: 9
  228. -- style flags: 0
  229. -- line height: 12
  230. -- part name: California Resident (6% Tax)
  231. ----- HyperTalk script -----
  232. on mouseUp
  233.   click at the loc of card field "calc"
  234. end mouseUp
  235.  
  236.  
  237.  
  238. -- part 11 (button)
  239. -- low flags: 00
  240. -- high flags: A005
  241. -- rect: left=257 top=234 right=249 bottom=418
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 0 / 0
  244. -- text alignment: 1
  245. -- font id: 3
  246. -- text size: 9
  247. -- style flags: 0
  248. -- line height: 12
  249. -- part name: 2nd Day Air (1.50 extra)
  250. ----- HyperTalk script -----
  251. on mouseUp
  252.   click at the loc of card field "calc"
  253. end mouseUp
  254.  
  255.  
  256.  
  257.  
  258. -- part 12 (button)
  259. -- low flags: 00
  260. -- high flags: 0000
  261. -- rect: left=469 top=308 right=336 bottom=503
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 1012 / 1012
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: 
  270. ----- HyperTalk script -----
  271. on mouseUp
  272.   visual dissolve fast
  273.   go card "tght0001"
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part 13 (button)
  279. -- low flags: 00
  280. -- high flags: A000
  281. -- rect: left=428 top=3 right=61 bottom=494
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 1007 / 1007
  284. -- text alignment: 1
  285. -- font id: 0
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: Print
  290. ----- HyperTalk script -----
  291. on mouseUp
  292.   play harpsichord a c5 b
  293.   doMenu "print card"
  294. end mouseUp
  295.  
  296.  
  297.  
  298. -- part contents for card part 8
  299. ----- text -----
  300. 49.95
  301.  
  302. 2.50
  303.  
  304. 52.45
  305.  
  306. -- part contents for card part 9
  307. ----- text -----
  308. 1